home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 6 / Amiga Format AFCD06 (Nov 1996, Issue 90).iso / serious / commercial / advex / dvescripts / _dve_seq_x.adpro next >
Text File  |  1996-07-02  |  2KB  |  74 lines
  1. /*
  2. ** INTERSECA DUE SEQUENZE CON UNA DISSOLVENZA INCROCIATA
  3. ** e
  4. ** Apre una finestra di stato sul Workbench
  5. */
  6.  
  7. ADDRESS "ADPro"
  8. OPTIONS RESULTS
  9.  
  10. TRUE = 1
  11. FALSE = 0
  12. NL = '0A'X
  13. SQ = '27'X
  14. DQ = '22'X
  15. TRASP = 2
  16. NUMEROFRAME = 0
  17. FRAMENUM = 1
  18.  
  19. TroppiFrames = DQ || " HO DETTO 50 FRAMES! " || NL ||,
  20.                      "   RIPETI DI NUOVO   " || NL ||,
  21.                      "LA SCELTA DEI FRAMES!" || DQ
  22.  
  23. Assicurati = DQ || "  Devi usare 50 FRAMES  " || NL ||,
  24.                    "con le stesse dimensioni" || NL ||,
  25.                    "per entrambe le sequenze." || DQ
  26. OKAY1 Assicurati
  27.  
  28. DO UNTIL (TOTALFILES = 50)
  29.  GETFILES '"Scegli gli ultimi 50 frames della PRIMA sequenza"'
  30.   IF RC ~= 0 THEN EXIT
  31.    PATHIN = ADPRO_RESULT
  32.     IF PATHIN = "" THEN EXIT
  33. TOTALFILES = WORDS(PATHIN)
  34.     IF TOTALFILES ~= 50 THEN
  35.     OKAY1 TroppiFrames
  36. END
  37.  
  38. DO UNTIL (TOTALFILES2 = 50)
  39.  GETFILES '"Scegli i primi 50 frames della SECONDA sequenza"'
  40.   IF RC ~= 0 THEN EXIT
  41.    PATHIN2 = ADPRO_RESULT
  42.     IF PATHIN2 = "" THEN EXIT
  43. TOTALFILES2 = WORDS(PATHIN2)
  44.     IF TOTALFILES2 ~= 50 THEN
  45.     OKAY1 TroppiFrames
  46. END
  47.     
  48. GETfile '"Scegli path e nomebase dei 50 frames ottenuti"'
  49.   IF RC ~= 0 THEN EXIT
  50.     OUTFILE = ADPRO_RESULT
  51.      if OUTFILE = "" then exit
  52.  
  53. open('Stat','CON:50/50/200/100/Situazione/cds')
  54.  
  55.     DO A = 1 TO TOTALFILES
  56. INFILE = WORD(PATHIN,A)
  57. INFILE2 = WORD(PATHIN2,A)
  58.   LFORMAT "UNIVERSAL"
  59. LOAD (INFILE) 
  60. LOAD (INFILE2) COMPOFFSET 0 0 (TRASP)
  61.   FRAMENUM = (FRAMENUM + 1)
  62.   NUMEROFRAME = (NUMEROFRAME + 1)
  63.   TRASP = (TRASP + 2)
  64. NUMERO = RIGHT(NUMEROFRAME,3,'0')
  65.   SAVER "IFF" (OUTFILE)||'.'||(NUMERO) "RAW" 
  66. writeln('Stat',"Salvo il frame Num." NUMERO)
  67. END
  68.  
  69. close('Stat')
  70.  
  71. EXIT
  72.  
  73.  
  74.